      
#declare w = 32;
#declare h = 256;                 
      
camera {
   //perspective
   orthographic
   location <0, -16, -600>
   right <w/9, 0, 0>
   up <0, h/9, 0>            
   look_at <0, -16, 0>     
   //angle 30
}
                 
global_settings{max_trace_level 20}
                 
//background { color rgb <1, 0, 1> }
//global_settings { ambient_light color rgb <0.4, 0.4, 0.4> }


// default light
light_source { <0, 0, -10> color rgb <0.5,0.5,0.5> }      
light_source { <-125.67, 2515.71, +3000> color rgb <-0.5,0.5,-0.5> }                       


#declare flame_map = 
      color_map
      {
        [0.0 color rgb <0, 0, 0>]
        [0.2 color rgb <0, 0, 0>]
        [0.3 color rgb <0, .2, 0>]
        [0.4 color rgb <0, .5, 0, 0>]   
        [0.5 color rgb <0, .9, 0, 0>]
        [0.6 color rgb <0, 1, 0, 0>]
        [0.88 color rgb <.1, 1, 0, 0>]
        [0.9 color rgb <1, .1, 0, 0>]
        [.95 color rgb <1, 0, 0>]
        [1.0 color rgb <1, 1, 1>]
      };
                     
#declare se =
superellipsoid { <.5, .5> //<-1, 0, 0>, <2, 0, 0>, 1  
//sphere { 0, 1

  hollow 
  pigment { color rgbt 1 }

  scale <30, 1.5, .15>
  
  interior
  {     
   media
   {      
    absorption .5
    emission 6
    //scattering {1, .3}
    density
    {
      spherical
      color_map { flame_map }
      scale <18*18*18, 1.5, 1.5>
     
    }

    density
    {
      granite
      rotate <0, 0, clock*16*3.1415>
      scale 2
      frequency 2
    }
    
   }
  } 
  
  finish {
    ambient 0
    diffuse 0
  }

}

#declare FUNC = function { pigment { checker } }

#declare se1 =
superellipsoid { <.5, .5> //<-1, 0, 0>, <2, 0, 0>, 1  
//sphere { 0, 1

  hollow 
  pigment { color rgbt 1 }

  scale <1.5, 30, .15>
  
  interior
  {     
   media
   {      
    absorption .5
    emission 6
    //scattering {1, .3}
    density
    {
      spherical
      color_map { flame_map }
      scale <1.5, 18*18*18, 1.5>
    }

    density
    {
      granite
      rotate <0, 0, clock*16*3.1415>
      scale 2
      frequency 2
    }
    
   }
  } 
  
  finish {
    ambient 0
    diffuse 0
  }
}

object { se
  translate <0, -3.5, 0>
}

object { se1
}
